home *** CD-ROM | disk | FTP | other *** search
- ;;; -*- Mode:Lisp; Package:USER; Syntax:COMMON-LISP; Base:10; Lowercase:T -*-
-
- ;;;
- ;;; TEXAS INSTRUMENTS INCORPORATED
- ;;; P.O. BOX 2909
- ;;; AUSTIN, TEXAS 78769
- ;;;
- ;;; Copyright (C) 1988 Texas Instruments Incorporated.
- ;;;
- ;;; Permission is granted to any individual or institution to use, copy, modify,
- ;;; and distribute this software, provided that this complete copyright and
- ;;; permission notice is maintained, intact, in all copies and supporting
- ;;; documentation.
- ;;;
- ;;; Texas Instruments Incorporated provides this software "as is" without
- ;;; express or implied warranty.
- ;;;
-
- (in-package 'user)
-
- (unless (find-package 'clue)
- (warn "WARNING: CLUE must be loaded before building DEMO."))
-
- (unless (find-package 'clue-examples)
- (warn "WARNING: EXAMPLES must be loaded before building DEMO."))
-
- (defun compile-clue-demo (&optional (option :compile) directory)
- ;; Load CLUE-demo, optionally compiling changed files.
- ;; If OPTION is :RECOMPILE, recompile all files
- ;; If OPTION is :LOAD, don't compile anything, just load.
- ;; WARNING: CLX, CLUE and EXAMPLES MUST BE LOADED FIRST!!!
- (declare (type (or null string pathname) directory)
- (type (or null (member :load :compile :recompile)) option))
- (unless directory
- (setq directory (or *clue-demo-directory* *default-pathname-defaults*)))
- (setq *clue-demo-directory* directory) ; Set defaults for the next time
- (unless (find-package 'clue)
- (error "CLUE must be loaded before building DEMO."))
-
- (flet ((module (file &optional opt dir)
- (compile-load (merge-pathnames file (or dir directory)) (or opt option))))
-
- (module "mouse-doc") ;; pointer documentation window
- (module "menu-demo") ;; Simple menu demos
- (module "grapher") ;; tree displayer
- (module "graph-data") ;; Data for grapher
- (module "listener") ;; Lisp Listener
- (module "scroller") ;; scrolling bitmap displayer
- (module "demo-all") ;; Menu-driven interface for above
- ))
-
- (defun load-clue-demo (&optional directory)
- ;; Load CLUE
- ;; WARNING: CLX, CLUE and EXAMPLES MUST BE LOADED FIRST!!!
- (compile-clue-demo :load directory))
-
- ;;;-----------------------------------------------------------------------------
- ;;; DEFSYSTEM to make lispm users more comfortable
-
- #+explorer
- (defsystem clue-demo
- (:pathname-default "sys:clue.examples.old.demo;")
- #+pcl (:default-output-directory "sys:clue.examples.old.demo;")
-
- (:module mouse-doc "mouse-doc")
- (:module menu-demo "menu-demo")
- (:module layout "grapher")
- (:module gdata "graph-data")
- (:module listener "listener")
- (:module scroll "scroller")
- (:module driver "demo-all")
- (:module image "ti-logo.xbm")
-
- (:compile-load mouse-doc)
- (:compile-load menu-demo)
- (:compile-load layout)
- (:compile-load gdata (:fasload layout))
- (:compile-load listener)
- (:compile-load scroll)
- (:compile-load driver (:fasload mouse-doc menu-demo layout gdata listener))
- (:auxiliary image)
- )
-
- #+symbolics
- (defsystem clue-demo
- (:default-pathname "sys:clue.examples.old.demo;"
- :pretty-name "CLUE-DEMO"
- :bug-reports ("clue-bugs@dsg.csc.ti.com" "Report problems with CLUE.")
- )
- (:module layout ("grapher"))
- (:module mouse-doc ("mouse-doc"))
- (:module menu-demo ("menu-demo"))
- (:module gdata ("graph-data")
- (:uses-definitions-from layout))
- (:module listener ("listener"))
- (:module scroll ("scroller"))
- (:module driver ("demo-all")
- (:uses-definitions-from mouse-doc menu-demo gdata listener))
- (:module image ("ti-logo")
- (:type :lisp-example))
- )
-
-
-